/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_4 / issue_10 / riscos / !Ultimate / WimpLib

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0e f4 20 3e 57 | 69 6d 70 4c 69 62 0d 00 |..... >W|impLib..|
|00000010| 14 21 dd 20 a4 69 6e 69 | 74 69 61 6c 69 73 65 5f |.!. .ini|tialise_|
|00000020| 77 69 6d 70 28 61 70 70 | 5f 6e 61 6d 65 24 29 0d |wimp(app|_name$).|
|00000030| 00 19 19 20 20 ea 20 74 | 61 73 6b 5f 69 64 25 2c |...  . t|ask_id%,|
|00000040| 76 65 72 73 69 6f 6e 25 | 0d 00 1e 38 20 20 de 20 |version%|...8  . |
|00000050| 77 69 6d 70 5f 62 6c 6f | 63 6b 25 20 35 31 32 2c |wimp_blo|ck% 512,|
|00000060| 6d 65 6e 75 5f 62 6c 6f | 63 6b 25 20 26 31 30 30 |menu_blo|ck% &100|
|00000070| 30 2c 64 61 74 61 5f 62 | 6c 6f 63 6b 25 20 36 34 |0,data_b|lock% 64|
|00000080| 0d 00 23 1e 20 20 6d 65 | 6e 75 5f 66 72 65 65 25 |..#.  me|nu_free%|
|00000090| 20 3d 20 6d 65 6e 75 5f | 62 6c 6f 63 6b 25 0d 00 | = menu_|block%..|
|000000a0| 28 46 20 20 c8 99 20 22 | 57 69 6d 70 5f 49 6e 69 |(F  .. "|Wimp_Ini|
|000000b0| 74 69 61 6c 69 73 65 22 | 2c 32 30 30 2c 26 34 42 |tialise"|,200,&4B|
|000000c0| 35 33 34 31 35 34 2c 61 | 70 70 5f 6e 61 6d 65 24 |534154,a|pp_name$|
|000000d0| 20 b8 20 76 65 72 73 69 | 6f 6e 25 2c 74 61 73 6b | . versi|on%,task|
|000000e0| 5f 69 64 25 0d 00 32 19 | 20 20 62 61 72 5f 69 63 |_id%..2.|  bar_ic|
|000000f0| 6f 6e 5f 6c 65 66 74 20 | 20 3d 20 2d 32 0d 00 3c |on_left | = -2..<|
|00000100| 19 20 20 62 61 72 5f 69 | 63 6f 6e 5f 72 69 67 68 |.  bar_i|con_righ|
|00000110| 74 20 3d 20 2d 31 0d 00 | 3d 2a 20 20 61 64 6a 75 |t = -1..|=*  adju|
|00000120| 73 74 5f 62 75 74 74 6f | 6e 20 20 3d 20 31 20 3a |st_butto|n  = 1 :|
|00000130| 20 6d 65 6e 75 5f 62 75 | 74 74 6f 6e 20 3d 20 32 | menu_bu|tton = 2|
|00000140| 0d 00 3e 2b 20 20 73 65 | 6c 65 63 74 5f 62 75 74 |..>+  se|lect_but|
|00000150| 74 6f 6e 20 20 3d 20 34 | 20 3a 20 69 63 6f 6e 5f |ton  = 4| : icon_|
|00000160| 62 61 72 20 20 20 20 3d | 20 2d 32 0d 00 41 19 20 |bar    =| -2..A. |
|00000170| 20 63 75 72 72 65 6e 74 | 5f 6d 65 6e 75 25 20 20 | current|_menu%  |
|00000180| 3d 20 2d 31 0d 00 42 2a | 20 20 6d 65 6e 75 5f 78 |= -1..B*|  menu_x|
|00000190| 25 20 20 20 20 20 20 20 | 20 3d 20 30 20 3a 20 6d |%       | = 0 : m|
|000001a0| 65 6e 75 5f 79 25 20 20 | 20 20 20 3d 20 30 0d 00 |enu_y%  |   = 0..|
|000001b0| 46 0d 3d 74 61 73 6b 5f | 69 64 25 0d 00 64 2a dd |F.=task_|id%..d*.|
|000001c0| 20 a4 63 72 65 61 74 65 | 5f 62 61 72 5f 69 63 6f | .create|_bar_ico|
|000001d0| 6e 28 61 70 70 5f 6e 61 | 6d 65 24 2c 70 6f 73 69 |n(app_na|me$,posi|
|000001e0| 74 69 6f 6e 29 0d 00 69 | 0d 20 20 ea 20 69 63 6f |tion)..i|.  . ico|
|000001f0| 6e 25 0d 00 6e 1f 20 20 | 77 69 6d 70 5f 62 6c 6f |n%..n.  |wimp_blo|
|00000200| 63 6b 25 21 30 20 20 3d | 20 70 6f 73 69 74 69 6f |ck%!0  =| positio|
|00000210| 6e 0d 00 78 18 20 20 77 | 69 6d 70 5f 62 6c 6f 63 |n..x.  w|imp_bloc|
|00000220| 6b 25 21 34 20 20 3d 20 | 30 0d 00 82 18 20 20 77 |k%!4  = |0....  w|
|00000230| 69 6d 70 5f 62 6c 6f 63 | 6b 25 21 38 20 20 3d 20 |imp_bloc|k%!8  = |
|00000240| 30 0d 00 8c 19 20 20 77 | 69 6d 70 5f 62 6c 6f 63 |0....  w|imp_bloc|
|00000250| 6b 25 21 31 32 20 3d 20 | 36 38 0d 00 96 19 20 20 |k%!12 = |68....  |
|00000260| 77 69 6d 70 5f 62 6c 6f | 63 6b 25 21 31 36 20 3d |wimp_blo|ck%!16 =|
|00000270| 20 36 38 0d 00 a0 1c 20 | 20 77 69 6d 70 5f 62 6c | 68.... | wimp_bl|
|00000280| 6f 63 6b 25 21 32 30 20 | 3d 20 26 33 30 30 32 0d |ock%!20 |= &3002.|
|00000290| 00 aa 25 20 20 24 28 77 | 69 6d 70 5f 62 6c 6f 63 |..%  $(w|imp_bloc|
|000002a0| 6b 25 20 2b 20 32 34 29 | 20 3d 20 61 70 70 5f 6e |k% + 24)| = app_n|
|000002b0| 61 6d 65 24 0d 00 b4 2f | 20 20 c8 99 20 22 57 69 |ame$.../|  .. "Wi|
|000002c0| 6d 70 5f 43 72 65 61 74 | 65 49 63 6f 6e 22 2c 2c |mp_Creat|eIcon",,|
|000002d0| 77 69 6d 70 5f 62 6c 6f | 63 6b 25 20 b8 20 69 63 |wimp_blo|ck% . ic|
|000002e0| 6f 6e 25 0d 00 be 0a 3d | 69 63 6f 6e 25 0d 00 c8 |on%....=|icon%...|
|000002f0| 1f dd 20 f2 63 6c 6f 73 | 65 64 6f 77 6e 5f 77 69 |.. .clos|edown_wi|
|00000300| 6d 70 28 74 61 73 6b 5f | 69 64 25 29 0d 00 d2 2c |mp(task_|id%)...,|
|00000310| 20 20 c8 99 20 22 57 69 | 6d 70 5f 43 6c 6f 73 65 |  .. "Wi|mp_Close|
|00000320| 44 6f 77 6e 22 2c 74 61 | 73 6b 5f 69 64 25 2c 26 |Down",ta|sk_id%,&|
|00000330| 34 42 35 33 34 31 35 34 | 0d 00 dc 05 e1 0d 01 2c |4B534154|.......,|
|00000340| 19 dd 20 a4 63 72 65 61 | 74 65 5f 6d 65 6e 75 28 |.. .crea|te_menu(|
|00000350| 6d 65 6e 75 24 29 0d 01 | 36 1f 20 20 ea 20 6d 65 |menu$)..|6.  . me|
|00000360| 6e 75 5f 70 74 72 25 2c | 77 69 64 74 68 25 2c 74 |nu_ptr%,|width%,t|
|00000370| 69 74 6c 65 24 0d 01 40 | 1c 20 20 6d 65 6e 75 5f |itle$..@|.  menu_|
|00000380| 70 74 72 25 20 3d 20 6d | 65 6e 75 5f 66 72 65 65 |ptr% = m|enu_free|
|00000390| 25 0d 01 4a 23 20 20 74 | 69 74 6c 65 24 20 20 20 |%..J#  t|itle$   |
|000003a0| 20 3d 20 a4 66 69 65 6c | 64 28 6d 65 6e 75 24 2c | = .fiel|d(menu$,|
|000003b0| 22 2c 22 29 0d 01 54 18 | 20 20 e7 20 a9 28 74 69 |",")..T.|  . .(ti|
|000003c0| 74 6c 65 24 29 20 3e 20 | 31 32 20 8c 0d 01 5e 22 |tle$) > |12 ...^"|
|000003d0| 20 20 20 20 24 28 6d 65 | 6e 75 5f 70 74 72 25 29 |    $(me|nu_ptr%)|
|000003e0| 20 3d 20 c0 74 69 74 6c | 65 24 2c 31 32 29 0d 01 | = .titl|e$,12)..|
|000003f0| 68 13 20 20 20 20 77 69 | 64 74 68 25 20 3d 20 31 |h.    wi|dth% = 1|
|00000400| 32 0d 01 72 07 20 20 cc | 0d 01 7c 1d 20 20 20 20 |2..r.  .|..|.    |
|00000410| 24 28 6d 65 6e 75 5f 70 | 74 72 25 29 20 3d 20 74 |$(menu_p|tr%) = t|
|00000420| 69 74 6c 65 24 0d 01 86 | 1a 20 20 20 20 77 69 64 |itle$...|.    wid|
|00000430| 74 68 25 20 3d 20 a9 28 | 74 69 74 6c 65 24 29 0d |th% = .(|title$).|
|00000440| 01 90 07 20 20 cd 0d 01 | 9a 2a 20 20 6d 65 6e 75 |...  ...|.*  menu|
|00000450| 5f 70 74 72 25 3f 31 32 | 20 3d 20 37 20 20 3a 20 |_ptr%?12| = 7  : |
|00000460| 6d 65 6e 75 5f 70 74 72 | 25 3f 31 33 20 3d 20 32 |menu_ptr|%?13 = 2|
|00000470| 0d 01 a4 2a 20 20 6d 65 | 6e 75 5f 70 74 72 25 3f |...*  me|nu_ptr%?|
|00000480| 31 34 20 3d 20 37 20 20 | 3a 20 6d 65 6e 75 5f 70 |14 = 7  |: menu_p|
|00000490| 74 72 25 3f 31 35 20 3d | 20 30 0d 01 ae 2a 20 20 |tr%?15 =| 0...*  |
|000004a0| 6d 65 6e 75 5f 70 74 72 | 25 21 32 30 20 3d 20 34 |menu_ptr|%!20 = 4|
|000004b0| 34 20 3a 20 6d 65 6e 75 | 5f 70 74 72 25 21 32 34 |4 : menu|_ptr%!24|
|000004c0| 20 3d 20 30 0d 01 b8 24 | 20 20 6d 65 6e 75 5f 69 | = 0...$|  menu_i|
|000004d0| 74 65 6d 5f 70 74 72 25 | 20 3d 20 6d 65 6e 75 5f |tem_ptr%| = menu_|
|000004e0| 70 74 72 25 20 2b 20 34 | 0d 01 c2 14 20 20 c8 95 |ptr% + 4|....  ..|
|000004f0| 20 6d 65 6e 75 24 20 3c | 3e 20 22 22 0d 01 cc 1c | menu$ <|> ""....|
|00000500| 20 20 20 20 6d 65 6e 75 | 5f 69 74 65 6d 5f 70 74 |    menu|_item_pt|
|00000510| 72 25 20 2b 3d 20 32 34 | 0d 01 d6 26 20 20 20 20 |r% += 24|...&    |
|00000520| 6d 65 6e 75 5f 69 74 65 | 6d 24 20 3d 20 a4 66 69 |menu_ite|m$ = .fi|
|00000530| 65 6c 64 28 6d 65 6e 75 | 24 2c 22 2c 22 29 0d 01 |eld(menu|$,",")..|
|00000540| e0 1c 20 20 20 20 21 6d | 65 6e 75 5f 69 74 65 6d |..    !m|enu_item|
|00000550| 5f 70 74 72 25 20 20 3d | 20 30 0d 01 ea 1d 20 20 |_ptr%  =| 0....  |
|00000560| 20 20 6d 65 6e 75 5f 69 | 74 65 6d 5f 70 74 72 25 |  menu_i|tem_ptr%|
|00000570| 21 34 20 3d 20 2d 31 0d | 01 f4 23 20 20 20 20 6d |!4 = -1.|..#    m|
|00000580| 65 6e 75 5f 69 74 65 6d | 5f 70 74 72 25 21 38 20 |enu_item|_ptr%!8 |
|00000590| 3d 20 26 37 30 30 30 30 | 32 31 0d 01 fe 24 20 20 |= &70000|21...$  |
|000005a0| 20 20 c8 95 20 a7 22 23 | 24 25 5e 22 2c c2 6d 65 |  .. ."#|$%^",.me|
|000005b0| 6e 75 5f 69 74 65 6d 24 | 29 29 20 3e 20 30 0d 02 |nu_item$|)) > 0..|
|000005c0| 08 1b 20 20 20 20 20 20 | c8 8e 20 c2 6d 65 6e 75 |..      |.. .menu|
|000005d0| 5f 69 74 65 6d 24 29 20 | ca 0d 02 12 45 20 20 20 |_item$) |....E   |
|000005e0| 20 20 20 20 20 c9 20 22 | 23 22 20 3a 20 3f 6d 65 |     . "|#" : ?me|
|000005f0| 6e 75 5f 69 74 65 6d 5f | 70 74 72 25 20 20 20 3d |nu_item_|ptr%   =|
|00000600| 20 3f 6d 65 6e 75 5f 69 | 74 65 6d 5f 70 74 72 25 | ?menu_i|tem_ptr%|
|00000610| 20 20 20 84 20 25 30 30 | 30 30 30 30 30 31 0d 02 |   . %00|000001..|
|00000620| 1c 45 20 20 20 20 20 20 | 20 20 c9 20 22 24 22 20 |.E      |  . "$" |
|00000630| 3a 20 3f 6d 65 6e 75 5f | 69 74 65 6d 5f 70 74 72 |: ?menu_|item_ptr|
|00000640| 25 20 20 20 3d 20 3f 6d | 65 6e 75 5f 69 74 65 6d |%   = ?m|enu_item|
|00000650| 5f 70 74 72 25 20 20 20 | 84 20 25 30 30 30 30 30 |_ptr%   |. %00000|
|00000660| 30 31 30 0d 02 26 45 20 | 20 20 20 20 20 20 20 c9 |010..&E |       .|
|00000670| 20 22 25 22 20 3a 20 6d | 65 6e 75 5f 69 74 65 6d | "%" : m|enu_item|
|00000680| 5f 70 74 72 25 3f 31 30 | 20 3d 20 6d 65 6e 75 5f |_ptr%?10| = menu_|
|00000690| 69 74 65 6d 5f 70 74 72 | 25 3f 31 30 20 84 20 25 |item_ptr|%?10 . %|
|000006a0| 30 31 30 30 30 30 30 30 | 0d 02 30 45 20 20 20 20 |01000000|..0E    |
|000006b0| 20 20 20 20 c9 20 22 5e | 22 20 3a 20 3f 6d 65 6e |    . "^|" : ?men|
|000006c0| 75 5f 69 74 65 6d 5f 70 | 74 72 25 20 20 20 3d 20 |u_item_p|tr%   = |
|000006d0| 3f 6d 65 6e 75 5f 69 74 | 65 6d 5f 70 74 72 25 20 |?menu_it|em_ptr% |
|000006e0| 20 20 84 20 25 30 30 30 | 30 30 31 30 30 0d 02 3a |  . %000|00100..:|
|000006f0| 0b 20 20 20 20 20 20 cb | 0d 02 44 23 20 20 20 20 |.      .|..D#    |
|00000700| 20 20 6d 65 6e 75 5f 69 | 74 65 6d 24 20 3d 20 c0 |  menu_i|tem$ = .|
|00000710| 6d 65 6e 75 5f 69 74 65 | 6d 24 29 0d 02 4e 09 20 |menu_ite|m$)..N. |
|00000720| 20 20 20 ce 0d 02 58 39 | 20 20 20 20 e7 20 a9 28 |   ...X9|    . .(|
|00000730| 6d 65 6e 75 5f 69 74 65 | 6d 24 29 20 3e 20 77 69 |menu_ite|m$) > wi|
|00000740| 64 74 68 25 20 8c 20 77 | 69 64 74 68 25 20 3d 20 |dth% . w|idth% = |
|00000750| a9 28 6d 65 6e 75 5f 69 | 74 65 6d 24 29 0d 02 62 |.(menu_i|tem$)..b|
|00000760| 30 20 20 20 20 24 28 6d | 65 6e 75 5f 69 74 65 6d |0    $(m|enu_item|
|00000770| 5f 70 74 72 25 2b 31 32 | 29 20 3d 20 6d 65 6e 75 |_ptr%+12|) = menu|
|00000780| 5f 69 74 65 6d 24 20 2b | 20 bd 28 30 29 0d 02 6c |_item$ +| .(0)..l|
|00000790| 07 20 20 ce 0d 02 76 33 | 20 20 3f 6d 65 6e 75 5f |.  ...v3|  ?menu_|
|000007a0| 69 74 65 6d 5f 70 74 72 | 25 20 3d 20 3f 6d 65 6e |item_ptr|% = ?men|
|000007b0| 75 5f 69 74 65 6d 5f 70 | 74 72 25 20 84 20 25 31 |u_item_p|tr% . %1|
|000007c0| 30 30 30 30 30 30 30 0d | 02 80 2c 20 20 6d 65 6e |0000000.|..,  men|
|000007d0| 75 5f 70 74 72 25 21 31 | 36 20 20 20 20 3d 20 28 |u_ptr%!1|6    = (|
|000007e0| 77 69 64 74 68 25 20 2a | 20 38 20 2b 20 36 29 20 |width% *| 8 + 6) |
|000007f0| 2a 20 32 0d 02 8a 2b 20 | 20 6d 65 6e 75 5f 66 72 |* 2...+ | menu_fr|
|00000800| 65 65 25 20 20 20 20 20 | 20 3d 20 6d 65 6e 75 5f |ee%     | = menu_|
|00000810| 69 74 65 6d 5f 70 74 72 | 25 20 2b 20 32 34 0d 02 |item_ptr|% + 24..|
|00000820| 94 0e 3d 6d 65 6e 75 5f | 70 74 72 25 0d 02 bc 1d |..=menu_|ptr%....|
|00000830| dd 20 f2 73 68 6f 77 5f | 6d 65 6e 75 28 6d 65 6e |. .show_|menu(men|
|00000840| 75 25 2c 78 25 2c 79 25 | 29 0d 02 c6 1b 20 20 63 |u%,x%,y%|)....  c|
|00000850| 75 72 72 65 6e 74 5f 6d | 65 6e 75 25 20 3d 20 6d |urrent_m|enu% = m|
|00000860| 65 6e 75 25 0d 02 d0 18 | 20 20 6d 65 6e 75 5f 78 |enu%....|  menu_x|
|00000870| 25 20 20 20 20 20 20 20 | 3d 20 78 25 0d 02 da 18 |%       |= x%....|
|00000880| 20 20 6d 65 6e 75 5f 79 | 25 20 20 20 20 20 20 20 |  menu_y|%       |
|00000890| 3d 20 79 25 0d 02 e4 27 | 20 20 c8 99 20 22 57 69 |= y%...'|  .. "Wi|
|000008a0| 6d 70 5f 43 72 65 61 74 | 65 4d 65 6e 75 22 2c 2c |mp_Creat|eMenu",,|
|000008b0| 6d 65 6e 75 25 2c 78 25 | 2c 79 25 0d 02 ee 05 e1 |menu%,x%|,y%.....|
|000008c0| 0d 03 20 12 dd 20 f2 72 | 65 73 68 6f 77 5f 6d 65 |.. .. .r|eshow_me|
|000008d0| 6e 75 0d 03 2a 2f 20 20 | f2 73 68 6f 77 5f 6d 65 |nu..*/  |.show_me|
|000008e0| 6e 75 28 63 75 72 72 65 | 6e 74 5f 6d 65 6e 75 25 |nu(curre|nt_menu%|
|000008f0| 2c 6d 65 6e 75 5f 78 25 | 2c 6d 65 6e 75 5f 79 25 |,menu_x%|,menu_y%|
|00000900| 29 0d 03 34 05 e1 0d 03 | 84 12 dd 20 a4 64 65 63 |)..4....|... .dec|
|00000910| 6f 64 65 5f 6d 65 6e 75 | 0d 03 8e 12 20 20 ea 20 |ode_menu|....  . |
|00000920| 6d 65 6e 75 5f 74 65 78 | 74 24 0d 03 98 4f 20 20 |menu_tex|t$...O  |
|00000930| c8 99 20 22 57 69 6d 70 | 5f 44 65 63 6f 64 65 4d |.. "Wimp|_DecodeM|
|00000940| 65 6e 75 22 2c 2c 63 75 | 72 72 65 6e 74 5f 6d 65 |enu",,cu|rrent_me|
|00000950| 6e 75 25 2c 77 69 6d 70 | 5f 62 6c 6f 63 6b 25 2c |nu%,wimp|_block%,|
|00000960| c4 32 30 30 2c 22 20 22 | 29 20 b8 20 2c 2c 2c 6d |.200," "|) . ,,,m|
|00000970| 65 6e 75 5f 74 65 78 74 | 24 0d 03 a2 0f 3d 6d 65 |enu_text|$....=me|
|00000980| 6e 75 5f 74 65 78 74 24 | 0d 03 e8 2f dd 20 f2 6d |nu_text$|.../. .m|
|00000990| 65 6e 75 5f 61 74 74 61 | 63 68 28 6d 65 6e 75 25 |enu_atta|ch(menu%|
|000009a0| 2c 70 6f 73 69 74 69 6f | 6e 25 2c 61 74 74 61 63 |,positio|n%,attac|
|000009b0| 68 6d 65 6e 74 25 29 0d | 03 f2 39 20 20 6d 65 6e |hment%).|..9  men|
|000009c0| 75 25 21 28 32 38 20 2b | 20 32 34 20 2a 20 28 70 |u%!(28 +| 24 * (p|
|000009d0| 6f 73 69 74 69 6f 6e 25 | 20 2d 20 31 29 20 2b 20 |osition%| - 1) + |
|000009e0| 34 29 20 3d 20 61 74 74 | 61 63 68 6d 65 6e 74 25 |4) = att|achment%|
|000009f0| 0d 03 fc 05 e1 0d 04 4c | 19 dd 20 a4 6d 65 6e 75 |.......L|.. .menu|
|00000a00| 5f 68 65 69 67 68 74 28 | 6d 65 6e 75 25 29 0d 04 |_height(|menu%)..|
|00000a10| 56 1e 20 20 ea 20 68 65 | 69 67 68 74 25 2c 6d 65 |V.  . he|ight%,me|
|00000a20| 6e 75 5f 69 74 65 6d 5f | 70 74 72 25 0d 04 60 21 |nu_item_|ptr%..`!|
|00000a30| 20 20 6d 65 6e 75 5f 69 | 74 65 6d 5f 70 74 72 25 |  menu_i|tem_ptr%|
|00000a40| 20 3d 20 6d 65 6e 75 25 | 20 2b 20 32 38 0d 04 6a | = menu%| + 28..j|
|00000a50| 18 20 20 68 65 69 67 68 | 74 25 20 20 20 20 20 20 |.  heigh|t%      |
|00000a60| 20 20 3d 20 30 0d 04 74 | 2a 20 20 c8 95 20 28 3f |  = 0..t|*  .. (?|
|00000a70| 6d 65 6e 75 5f 69 74 65 | 6d 5f 70 74 72 25 20 80 |menu_ite|m_ptr% .|
|00000a80| 20 25 31 30 30 30 30 30 | 30 30 29 20 3d 20 30 0d | %100000|00) = 0.|
|00000a90| 04 7e 1c 20 20 20 20 6d | 65 6e 75 5f 69 74 65 6d |.~.    m|enu_item|
|00000aa0| 5f 70 74 72 25 20 2b 3d | 20 32 34 0d 04 88 1b 20 |_ptr% +=| 24.... |
|00000ab0| 20 20 20 68 65 69 67 68 | 74 25 20 20 20 20 20 20 |   heigh|t%      |
|00000ac0| 20 20 2b 3d 20 31 0d 04 | 92 07 20 20 ce 0d 04 9c |  += 1..|..  ....|
|00000ad0| 1e 3d 39 36 20 2b 20 28 | 34 34 20 2a 20 28 68 65 |.=96 + (|44 * (he|
|00000ae0| 69 67 68 74 25 20 2b 20 | 31 29 29 0d 04 b0 28 dd |ight% + |1))...(.|
|00000af0| 20 f2 6d 65 6e 75 5f 74 | 69 63 6b 5f 74 6f 67 67 | .menu_t|ick_togg|
|00000b00| 6c 65 28 6d 65 6e 75 25 | 2c 70 6f 73 69 74 69 6f |le(menu%|,positio|
|00000b10| 6e 25 29 0d 04 ba 4f 20 | 20 6d 65 6e 75 25 3f 28 |n%)...O | menu%?(|
|00000b20| 32 38 20 2b 20 32 34 20 | 2a 20 28 70 6f 73 69 74 |28 + 24 |* (posit|
|00000b30| 69 6f 6e 25 20 2d 20 31 | 29 29 20 3d 20 6d 65 6e |ion% - 1|)) = men|
|00000b40| 75 25 3f 28 32 38 20 2b | 20 32 34 20 2a 20 28 70 |u%?(28 +| 24 * (p|
|00000b50| 6f 73 69 74 69 6f 6e 25 | 20 2d 20 31 29 29 20 82 |osition%| - 1)) .|
|00000b60| 20 31 0d 04 c4 05 e1 0d | 05 14 2d dd 20 f2 73 65 | 1......|..-. .se|
|00000b70| 74 5f 6d 65 6e 75 5f 74 | 69 63 6b 28 6d 65 6e 75 |t_menu_t|ick(menu|
|00000b80| 25 2c 70 6f 73 69 74 69 | 6f 6e 25 2c 74 69 63 6b |%,positi|on%,tick|
|00000b90| 65 64 25 29 0d 05 1e 11 | 20 20 e7 20 74 69 63 6b |ed%)....|  . tick|
|00000ba0| 65 64 25 20 8c 0d 05 28 | 51 20 20 20 20 6d 65 6e |ed% ...(|Q    men|
|00000bb0| 75 25 3f 28 32 38 20 2b | 20 32 34 20 2a 20 28 70 |u%?(28 +| 24 * (p|
|00000bc0| 6f 73 69 74 69 6f 6e 25 | 20 2d 20 31 29 29 20 3d |osition%| - 1)) =|
|00000bd0| 20 6d 65 6e 75 25 3f 28 | 32 38 20 2b 20 32 34 20 | menu%?(|28 + 24 |
|00000be0| 2a 20 28 70 6f 73 69 74 | 69 6f 6e 25 20 2d 20 31 |* (posit|ion% - 1|
|00000bf0| 29 29 20 84 20 31 0d 05 | 32 07 20 20 cc 0d 05 3c |)) . 1..|2.  ...<|
|00000c00| 59 20 20 20 20 6d 65 6e | 75 25 3f 28 32 38 20 2b |Y    men|u%?(28 +|
|00000c10| 20 32 34 20 2a 20 28 70 | 6f 73 69 74 69 6f 6e 25 | 24 * (p|osition%|
|00000c20| 20 2d 20 31 29 29 20 3d | 20 6d 65 6e 75 25 3f 28 | - 1)) =| menu%?(|
|00000c30| 32 38 20 2b 20 32 34 20 | 2a 20 28 70 6f 73 69 74 |28 + 24 |* (posit|
|00000c40| 69 6f 6e 25 20 2d 20 31 | 29 29 20 80 20 25 31 31 |ion% - 1|)) . %11|
|00000c50| 31 31 31 31 31 30 0d 05 | 46 07 20 20 cd 0d 05 50 |111110..|F.  ...P|
|00000c60| 05 e1 0d 05 78 23 dd 20 | a4 6d 65 6e 75 5f 74 69 |....x#. |.menu_ti|
|00000c70| 63 6b 65 64 28 6d 65 6e | 75 25 2c 70 6f 73 69 74 |cked(men|u%,posit|
|00000c80| 69 6f 6e 25 29 0d 05 82 | 0f 20 20 ea 20 72 65 73 |ion%)...|.  . res|
|00000c90| 75 6c 74 25 0d 05 8c 35 | 20 20 e7 20 28 6d 65 6e |ult%...5|  . (men|
|00000ca0| 75 25 3f 28 32 38 20 2b | 20 32 34 20 2a 20 28 70 |u%?(28 +| 24 * (p|
|00000cb0| 6f 73 69 74 69 6f 6e 25 | 20 2d 20 31 29 29 20 80 |osition%| - 1)) .|
|00000cc0| 20 31 29 20 3e 20 30 20 | 8c 0d 05 96 13 20 20 20 | 1) > 0 |.....   |
|00000cd0| 20 72 65 73 75 6c 74 25 | 20 3d 20 b9 0d 05 a0 07 | result%| = .....|
|00000ce0| 20 20 cc 0d 05 aa 13 20 | 20 20 20 72 65 73 75 6c |  ..... |   resul|
|00000cf0| 74 25 20 3d 20 a3 0d 05 | b4 07 20 20 cd 0d 05 be |t% = ...|..  ....|
|00000d00| 0c 3d 72 65 73 75 6c 74 | 25 0d 05 dc 15 dd 20 a4 |.=result|%..... .|
|00000d10| 61 64 6a 75 73 74 5f 70 | 72 65 73 73 65 64 0d 05 |adjust_p|ressed..|
|00000d20| e6 2b 20 20 c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |.+  .. "|Wimp_Get|
|00000d30| 50 6f 69 6e 74 65 72 49 | 6e 66 6f 22 2c 2c 64 61 |PointerI|nfo",,da|
|00000d40| 74 61 5f 62 6c 6f 63 6b | 25 0d 05 f0 19 3d 20 28 |ta_block|%....= (|
|00000d50| 64 61 74 61 5f 62 6c 6f | 63 6b 25 21 38 20 80 20 |data_blo|ck%!8 . |
|00000d60| 31 29 0d 06 40 21 dd 20 | a4 66 69 65 6c 64 28 f8 |1)..@!. |.field(.|
|00000d70| 20 6d 65 6e 75 24 2c 20 | 73 65 70 61 72 61 74 6f | menu$, |separato|
|00000d80| 72 24 29 0d 06 4a 0f 20 | 20 ea 20 72 65 73 75 6c |r$)..J. | . resul|
|00000d90| 74 24 0d 06 54 39 20 20 | 72 65 73 75 6c 74 24 20 |t$..T9  |result$ |
|00000da0| 3d 20 c0 6d 65 6e 75 24 | 2c a7 6d 65 6e 75 24 2b |= .menu$|,.menu$+|
|00000db0| 73 65 70 61 72 61 74 6f | 72 24 2c 73 65 70 61 72 |separato|r$,separ|
|00000dc0| 61 74 6f 72 24 29 20 2d | 20 31 29 0d 06 5e 31 20 |ator$) -| 1)..^1 |
|00000dd0| 20 6d 65 6e 75 24 20 20 | 20 3d 20 c2 6d 65 6e 75 | menu$  | = .menu|
|00000de0| 24 2c a9 28 6d 65 6e 75 | 24 29 20 2d 20 a9 28 72 |$,.(menu|$) - .(r|
|00000df0| 65 73 75 6c 74 24 29 20 | 2d 20 31 29 0d 06 68 0c |esult$) |- 1)..h.|
|00000e00| 3d 72 65 73 75 6c 74 24 | 0d ff                   |=result$|..      |
+--------+-------------------------+-------------------------+--------+--------+